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FACILITY: 
SYSGEN 
ABSTRACT: 
Process terminal driver customization commands. 


ENVIRONMENT: 
VMS, Kernel mode. Raised IPL. 


AUTHOR: Jake VanNoy, CREATION DATE: 14-Jul-1983 
MODIFIED BY: 


v03-001 JLV0383 Jake Van nttoy 23-JUL-1984 
Attempt to signal erring & at FAO fails on. 
Add support for TTYSEX g RING, a logical name 
that the RTL uses for it’s echoing. 


SSssssss SOoOooooooocoooo 
SSSSSSSSSSSSSSSSSSESSSS3 
COOCCCOCOCOCOCSCOOOSSoOoooooo 


oooooooSo 
SOooocoeo 
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SYSGTERM SYSGEN TERMINAL commands °s 7. Hi AX/VMS v04-00 P 
-. - acro a 
yo e000 DECLARATIONS =198e 99:03:38 FBROYeS Re§ee se ocAm man:1 29 G2, 
8 ~SBTTL DECLARATIONS 
p 60 INCLUDE FILES: 
SDPTDEF ; Driver prologue table 
00 & SDYNDEF $ pool tees 
44 64 {tats } ; interrupt levels 
00 65 IRPDEF ; IRP offsets 
00 6 SLNMDEF 3 Le ical name definitions 
00 6 SPSLOEF § definitions 
00 68 SSTSDEF : 4K. definition 
464 $3 ; STTYVECDEF 3; terminal driver symbols 
0000 71 ; MACROS: 
444 te 3 
000 7 
0000 74; 
44 75 ; EQUATED SYMBOLS: 
000 6 3 
0000 7 
000003E8 0000 78 BYTES _TO fALorare « 1000 
00000064 0000 79 BUFFER_LEN = 
0000 0 
ocoo.—O':«;*B‘dC; 
0000 ¢ ; OWN STORAGE: 
0000 3 
eeet* Be -PSECT NONPAGED_DATA 
OA 0D 00000008'010E0000' 0000 86 CRLF: eASCID <13><10> 3 goretoge return/Lline feed 
00000000" QO0A 87 FAO_PRMLST: [ADDRESS CRLF 3; list of parameters for FAOL 
00000000' Bes 88 ADDRESS CRLF 3 
0000000° 001 89 S ADDRESS CRLF 3 
0000000° 0016 90 ADDRESS CRLF 3 
00000000' 1A 91 “ADDRESS CRLF j 
00000000' ah} ug ADDRESS CRLF 3 
00000000" 002 9 SADDRESS CRLF 5 
00000000° 0026 94 - ADDRESS CRLF 3 
00000000° 002A :}) [ADDRESS CRLF F 
00000009" 00 § 96 -ADDRESS CRLF r 
00000000" 00 97 - ADDRESS CRLF : 
0036 98 
0036 9S 4 $3 TABLE: -LONG 0 
60009000 Bee 100 STR-SLOCK: -LONG 0 
00000 y? 19) NUM_BYTES: «LONG BYTES_TO_ALLOCATE 
00000092 $8 108 OF FSET_TABLE: -BLKL 20 ; Number of longword vectors 
00000000 009 198 MSGLEN -LONG 0 
44 34) 1 $ MSG “OUTADR: BYTE ° :; first byte of outadr 
0000009A 344 : f FAO_ COUNT: -BLKB ; fao_count is second byte 
00000064 009A 109 STR_DESC: LONG hehe 
00000000 44 19 . LONG : to be filled in 
444 444 OA 16 BUFFER_DESC: -LONG BUFFER_LEN 
OOO00AA' A 11 LONG BUFFER_ADDR 3 
OO0010E OOAA 114 BUFFER_ADDR: -BLKB BUFFER_LEN ; data goes here from $GETMSG 


¢ 13 
SYSGTERM = SYSGEN TERMINAL commands 16-SEP-1984 00:15: AX/VMS Macro v04-00 Pa 
Vou 000 DECLARATIONS 64-SEP-1984 99:03:38 fBoots sre SYSGTERM.MAR; 1 ~ d) 
1 15 
: 116 MSG_TABLE: ; list of message codes 
1 8 «LONG 0 ; Break 
* 01 11 «LONG SYSG_TTS_CTRLY 3; standard “Y 
* 011 1 y -LONG SYSG_TTS_CTRLC i standard “C 
0 * QO11IA 1 «LONG SYSG_TTS_CTRLY_REG : “Y for REGIS 
* 011 1 ; «LONG SYSG_TTS_CTRLC_REG :; “C for REGIS 
* 01 1 «LONG SYSG_TTS_CTRLY_DEC ; “Y for DEC_CRT 
00 * 01 124 LONG SYSG_TTS_CTRLC_DEC :; *C for DEC_CRT 
* Q12A 125 «LONG SYSG_TTS_CTRLY_DECREG ; “Y for DEC_CRT and REGIS 
* 01 3 1 § ° ZYS6_1TS_CTRLCDECRES ; “C for DEC_CRT and REGIS 
} ¢ : «LONG ; Break in table 
000 * 0136 1 5 -LONG SYSG_TTS$_CTRLZ ; Standard “2 
000000" 013A 130 «LONG gY9S.FF9 CTRL pee ; “2 for DEC_CRT 
00000 148 ! 1 «LONG ; Break 
44 4 4 14 1 : «LONG SYSG_TTS_CTRLO ; output off 
00000° 0146 134 «LONG SYSG_TT$_CTRLO_DEC ; output off for DEC_CRT 
i444 146A = =135 «LONG SYSG_TT$_OUTON ; output on 
0000000" 136 1 $ -LONG SYSG_TTS$_OUTON_DEC ; output on for DEC_CRT 
00000000 13¢ : i «LONG 0 ; Break 
00000000 138 139 -LONG 0 ; End of table 
15A 141 LNM_ITMLST: 
0000 015A 148 LNM-CTRLZ_DEC: .WORD 0 
0002 015C 14 -WORD LNMS$_STRING 
0000000 8125 144 «LONG QO 
0000000 Bie 102 LONG 0 
0000 166 129 LNM_CTRLZ: .WORD 0 
9008 168 148 -WORD LNM$_STRING 
i444 16A 149 «LONG 0 
0000000 193 139 «LONG 0 
00000000 0178 13 -LONG 0 : End of item List 
59 53 3 rd r+} ri 99 ne At te Sag 0176 154 LNM_SYSTEM: -ASCID /LNMSSYSTEM_TABLE/ ; table to create name in 
58 45 24 59 54 54 BO00 199 "9) 50 wt O18E 155 LNM_LOGNAM: -ASCID /TTYSEXIT_STRING/ ; name of logical name 
47 GE 49 52 54 55 5F 019C 
dias 189 
00000000 +=+158 -PSECT NONPAGED_CODE 
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T 
° -SBTTL SYSGSLOAD_TT_STR = Load terminal driver echo strings 


vous000" SySGSLOAD.T 


“= 


+ 
+ 


FUNCTIONAL DESCRIPTION: 
Use SGETMSG to fetch message defintions, then load into non-page 
pool so that TTDRIVER echos them correctly. 
CALLING SEQUENCE: 
CALLS #0,SYSGS$LOAD_TT_STR 
INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 

SYSG_TT$_ message symbols 
OUTPUT PARAMETERS: 

NONE 


Sooooooooooooo 
SoOoOoooooooooooo 


oo 
NLOVaSScwumaunmmvsessoooeeooeoeo ooo SeoSSeoeSSeSo 


oooo 


SOoooooooo Soooooooo 
SOOCoCoooooooooooooooosoo 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 


SS$_NORMAL 
error status from: 
SGETMSG 


G 
LIBSGET_VM 
exec pool allocation 


SIDE EFFECTS: 


Non-paged pool is allocated 


and left with tables set up. 
Pointer to tables is modified in TIDRIVER. 


Be Se Ge Se Ge Se Ge Se Se Se Ge Se Se Se Ge Ge Se Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Se Se Ge Ge Ge Se Ge Ge 


sENTRY SYSGSLOAD_TT_STR ,“M<R2,R3,R4,R5,R6,R7,RB,RI> 
: Set tables up in PO space first 


PUSHAL STR_BLOCK 
PUSHAL 
CALLS 


OQOOOOOSA'EF OF Block addres (returned) 


Number of bytes (input) 


tt 1 2 2H QODOGOOOO OOO OOOO OOO 090900 69 09 09 09 09 09 09 SI NINN NS NIN NNSA AAO 
PAP WI MODS MEME ODO MONI ODOd Or OF NO OS OU UM Ooo de 


POPEPOPEPONOMOPOPIPMPONOPOPINDRY 8 3 a a a a a a a a a tt tt tt tt 


0 3 
OOOOOOSE*EF DF 000 NUM_BYTES 3 
00000000 ' GF 4 $9 #2, G*LIBSGET_VM : Fetch memory 
01 3 1 RO,10 3; Continue if ok 
4 3 108 ; Return with error 
sais eH DF 001 PUSHAL VEC_TABLE ; Block addres (returned) 
0000 E‘EF OF 1 PUSHAL NUM"BYTES : Number of bytes (input) 
00 GF 3 f 8 § CALLS # Get 1BSGET_vM ; Fetch memory 
01 E BLBS RO,15 : Continue if ok 
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SvSGSLOAD TT STA - Load terminal driver 4-5 raat 99:07:38 taooys. sre SYSGTERM.MAR; 1 et 2) | 
04 002F 4 158 RET ; Return with error 
g 10€ ‘EF 43 00 Q 15 ; MOVAB MSG. TABLE Re 3; Message table | 
"EF i! y MOVL VEC TABLE,R ; address of memory for vectors 
c*EF 00 4 MOVAB OFFSET ABLE RG ; table of indirect pointers offsets 
5 "EF BO 0043 i MOVL © STR_BLOCK,R ; where text goes 
i : ¢ ; Loop through MSG_TABLE, calling SGETMSG for strings 
4" 3 
D04C 208: 
56 8 09 OC C § MOVL (here Ae ; Get next message 
1 poet 3 BNEQ 30 ; Zero marks break in table 
03 , ; Save offset to table vector 
53 D 051 MOVL R3,(R4) ; record next pointer 
84 00000036 'éF C £4 5 SUBL VEC_TABLE,(R4)+ ; minus base address 
56 Be dO 58 5 MOVL (R2)+,R6 3 97" real message 
2 § BNEQ 30$ :; If zero, then done 
oocc 1 : S308 BRW 100$ ; exit loop 
> a § 9 : MOVL R5,(R3) 3; set string address 
83 0000003A°EE C 4 rt SUBL STR_BLOCK, (R3)+ 3 minus base address 
57 A2°EF 9E 474 4g MOVAB BUFFER_DESC,R7 ; address 
6 0064 3F gt 0074 4 MOVZWL #BUFFER_LEN,(R7) i set Length 
04 A7 QOO00D0AA'EF 008i rf: MOVAB BUFFER_ADDR,4(R7) ; Set address 
081 4 SGETMSG_S - 
0081 43 “MSGID = R6,- z message ID 
081 48 MSGLEN = (R7),- 3; return message length 
081 49 BUFADR = (R7),- ; return message string 
081 50 FLAGS = #1,- 3; text only 
081 251 OUTADR = MSG_OUTADR : output counts 
09 50 «=&9 843 26 BLBC RO,3 :; check for error 
50 00000000°8F 01 009 5 CMPL §#SS$_MSGNOTFND,RO : continue if OK 
0088 i a 33 355 pace 40$ 3; must be normal, exit if MSGNOTFND 
A 56 40S: 
OO00092"EF 67 3C¢ 00h 28 MOVZWL (R7),MSGLEN : set Length 
1 00000097 "EF 9A O00A 38 MOVZBL FAO_COUNT,R1 : fao count for CRLF 
8 13 $93 2p BEQL 50$ 3; Branch if none 
08 61 : Set up FAO to insert <CR><LF> pairs 
58 pocorn i 9€ 0085 8 MOVAB STR_DESC,R8B ; descriptor 
68 0064 8F 3 OBC 64 MOVZWL #BUFFER Vee ; length 
04 AB 01 AS E tH i MOVAB 1(R5),4TR8) ; address 
C6 89 SFAOL_S CTRSTR = (R7),- : control string 
C6 68 OUTLEN = MSGLEN,- : Length of output 
0C6 8 OUTBUF = (R&),- 3; descriptor 
C6 0 RAL ST = FAO_PRMLST : list of CR LF's 
0D 20 €8 BP 71 LBS RO,50$ 3; branch if ok 
DD 9 ss PUSHL 3; message that went bad 
25 dD E 7 PUSHL RO 3 error from FAG 


#13 
Svs ie stat ad Teed toretent driver "978 oat ri 98: 07: 38 Yaoors: sre SPSSTERM MAR; 1 —_ (3) 


venenata dined 98 f : i CALLS ep O'u lessons 3 signal 


al 


oooh 


50$: MOVZBL MSGLEN,R1 ; Get message Length 
move ets 3 set lengt - 
INCL 3; add to address 


; save address 


SSsSF = 


MOVL R ne 
ADDL2 R1,R8 3; add to address 
: Build *Z strings for TTYSEXIT_STRING Logical name (for RTL use) 


AOVAB i CTRLZ DEC .RO ; assume DEC ert 
CPL PSYSG_TT$_CTRLZ_DEC 2 for DEC_ERT 


ee De Rs Be | ee Re Re el | 
WWM OONSOVTsS 


—— 


MEW OONOU SW O OM 


7 
7 
7 
10D i : b br if equa 
Sooohee br F 10F MOVAB O08 ne ; set regular 
BF $ D1 0116 CMPL Rs aSyseeft _CTRLZ ; Standard “1 
12 110 4 ons BNEG 808 : br if not 
60 51 80 11F 9629 "  MOVW «RT, (ROD ; set length 
04 AO 9 OD : : ; MOVL R9, *4(RO) 3; set address 
FF23.0—s 531 , 8 95 80S: Be 208 3; Loop 
; 4 3 : Error - exit 
129 299 85S: ‘ 
06 FO 0129 00 INSV ostsee SEVERE ,=- 
99 128 301 #STSS$V~SEVERITY,- 
50 O 12C 8 petsss~ _SEVERITY,RO 3; make it fatal 
04 : 4 bz 90S: RET 3 return 
' : 32 : Table is complete, define logical name and set up in pool 
01 F 09 100$: * 
19F 308 SCRELNM_S - 
12F 09 TABNAM = LNM_SYSTEM,- 
13F 10 LOGNAM = LNM rh QeNan 
12F 11 ACMODE = #PSC$C EXEC, 
12F 1 ITMLST = LNM_ITALS 
OF 50 =«#EG 138 F BLBC RO,110$ 
136 15 SCMKRNL_S LOAD_TT_SYMS ; Do the Loosing in kernel mode 
04 yt 1 110$: RET : Return with status 
0000 189 LOAD_TT_SYMS: -WORD 0 
56 53 00000036'EF cS 185 0 SUBL VEC_TABLE,R3,R : length of VECTOR table 
57 55 0000 alt + C 138 1 SUBL srk, RL Or K,R5,R : length of text 
51 6 (C1 Wve § ADDL ; length of both 
51 oc co 178 : ADDL #12,R1 3; pool overhead 
179 § SETIPL 4g ASTDEL ; Prevent deletion 
00000000"¢ 18 17 JSB wee 3; Fetch Pool 
6c 50 =«6€€E I 3 BL BC 3; Branch on error 
62 20595454 BF D0 0Q1 0 MOVi M*A/TTY /,(R2) : flag pool with text 


— =- yy 


Pete SvSeRLOND TT stae=” ° toad a terminal nad ya et 9: OF: 38 {00 Ve sRcisvsereRn, ERM.MAR; 1 —_ by 


| 
046 A2 56586554 1 MOVL #*A/TEXT/ aun st for 
| rf} i3 i 83 1 ; mOVW Ri, Dg FtR2) 3 g iyst mya is as good as any) 
80 f 198 mOVZBW #DY a 
| A2 : IRPSB_ CH tla 3; Set type ? 
, : age offsets to these addresses 
5 D 01 3 3; Save structure address 
rh oc 1 rowmp : Base of vectors 
68 00000056'FF 1s mOovVC aeee* FABLE. (RB) 3; copy data 
1A8 ? RS is now where the string block will start 
i z : : Vector offsets just loaded must be relocated relative to this 
8 5 co 148 $ 30S:  AddL2 3, (RBD* ; add address to offset 
0 fs § MPL R3,R8 ; addresses the same? 
Bo O2 18 BNE QU $ 3 no, 
is : + Now copy strings into block 
63 O000003A'FF 52 28 18 1 MOVC3 R7,@STR_BLOCK, (R3) : copy strings 
2 BED Hs ¢ POPL Re 3; Restore structure address 
185 : : Block is now set-up, fix up pointers in TTDRIVER 
50 09000000" GF 90 1 6 MOVL  G*TTYSGL_DPT,RO : Fetch TTDRIVER address 
1 t€ 40 7 ics MOVZWL DPTSW_VECTOR(RO),R1 3 offset to table 
51 § 1¢ 3 ADDL2 R0,R1™ 3; base + offset 
50 26 Al 00 1c MOVL CLASS TABLES(R1),RO ; address of vectors 
54  00000042'EF H 4 9 MOVAB OFFSET_TABLE,R4 ; address of new vectors 
+ 44 oe SETIPL #IPLS_POWER ; block out interrupts 
58 OCA 9 1DA 64 MOVA 12(R2) ,R8 3; base address 
3 C 1DE 65 ADDL3 RB, (R45 +, (RO)* i new interrupt echos 
0 4 C1 1E 08 ADOL RB, (R4)+, (RO) + 3 new exit echos 
5 ¢1 HH rt ADDL RB, (R4)+, (RO) + 3 new ctrl O echos 
50 00000000°8F »D0 Hy +4 1908 MOVL #SS$_NORMAL ,RO ; Set status 
F100 371 "  SETIPL #0 
04 1F4 1 RET 
O1F5 7 
O1FS 74 END 


| 
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| Symbol table aaa 99:07:38 teoors. sre SYSGTERM.MAR; 1 . 3) 
BUF FER_ADDR AA R TTYSGL_DPT eeeneeee § x 3 
Burr En=p ae A ri R $3 VEC_TABLE 00000036 R 63 
BYTES, TO ALLOCATE = a 

CLASS_ TABLES 5 4 

cate OR 02 
DPTSW_VECTOR s 3 

YNS. SPECIAL = 8 

XE SACONONPAGED erereree 3 

AO_COUNT ° 097 R 3 
FAO_PRMLST OAR 

PPLE _ASTOEL : 09 902 

PLS POWER = 0000001F 
IRPSB_TYPE = 0000000 
IRP$SW_SIZE = 00000008 
LIBSGET vm eteeeeee x 03 
LIBSSIGRAL eeeeeeee xX 3 
LNMS STRING = 00000002 
LNM_CTRLZ 0000166 R 0 
LNA_LCTRE O00015A R 
LNM_ITALST QO001I5AR 0 
LAL B08 aE R 0 
LNM_SYSTEM 0000176 R 0 
LOAD TT SYMS 00000160 R = 0 
MSGLEN 444494 R 02 
MSG_OUTADR 0000096 R 0 
MSG_TABLE OOOOOI0E R 0 

BYTES 000000 3 R 0 
OFFSET TABLE 000042 R 0 
1PC eeereree XK 0 

PSLSC_EXEC = 00000001 
SS$_MSGNOTFND eeneeree XY 03 
SSS$_NORMAL eeereree§ XK 03 
STR_BLOCK 0000003A R 02 
STR C QO0009A R 02 
STSSK_SEVERE = 00000004 
STS$S_SEVERITY = 00000003 
STS$V_SEVERITY = 00000000 
SYSSCAKRNL eeeerere GX 03 
SYSSCRELNA eereeree GX 03 
SYS$F AOL eeeeeere GX 03 
SYSSGETMSG eereneee GX 03 
SYSGSLOAD_TT STR 00000000 RG 03 
SYSG_TT$_CTREC ereerere 0 
SYSG_TTS_CTRLC_DEC eerenter 
SYSG_TTS_CTRLC_DECREG eererene 0 
SYSG_TTS_CTRLC_REG eteeeeee 02 
SYSG_TT$_CTRLO eeeerere 02 
SYSG_TTS$_CTRLO_DEC tererere 2 
SYSG_TTS_CTRLY eetereere 0 
SYSG_TTS$_CTRLY_DEC eereeeee 0 
SYSG_TTS$S_CTRLY_DECREG eeeeeere 0 
SYSG_TTS_CTRLY_ eeeeeree 0 
SYSG_TTS$_CTRLZ teererer 0 
SYSG_TTS$S_CTRLZ_DEC eeereene 
SYSG_TT$_OUTON eeeereee 0 
SYSG_TT$_OUTON_DEC aeeerene 


SYSGTERM 
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PSECT name 


Ss . 


ABS 
NONPAGED _DATA 
NONPAGED~ CODE 


Phase 


Initialization 
somnees processing 


“y 
Synbol table sort 
wed table output 


There were 30 


Macro library name 
-8255SDUA28: poets. 
“$255$DUA28:(SYS.08 
“$255$DUA28: 


Ee wee eee eee Ce 
mw wo 


Psect synopsis output 
Cross-reference output 
Assembler run totals 
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Allocation 


nan 


Page faults 


we 
on 


i ee 


! Psect synopsis ! 


te mame es mas onan anaes + 


PSECT No. 


0°) 89 ( 0.) 
) 1 © Bes 
+ 88 t §:3 


30 00:00:00.07 00: 00: 00. 43° 
110 00:00:00.68 00:00:03.04 
224 00:00:05.81 00:00:12.37 

one :00.71 Op 80:8) 3 

7 00:00:01.38 0:00:02.7 

7 83:8 :00.07 00:00:00.27 

3 0:00:00.0 00:00:00.03 
es So 00:00:00.00 

454 0:00:08. 00:00:19.89 


be york ing set Limit was 1350 pages. 
113 bytes_(61 pages) of virtual memory were used to buffer the intermediate code. 
non-local and i$ local symbols. 


pages of symbol table space allocated to hold 513 
1 object records in Pass 2 


74 source Lines were read in Pass 1, 
1 pages of virtual memory were used to define 2 


508 e°R' sé - -MLB; 1 


SYSLIBIJSTARLET. ALB; 2 
TOTALS (all Libraries) 


599 GETS were required to define 17 macros. 


producing 


macros. 


boner ee we PET wee ne Bee ee + 


! Macro Library statistics : 


+ ed See ee ee 


Macros defined 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SYSGTERM/OBJ=O0BJ$:SYSGTERM MSRC$:SYSGTERM/UPDATE=(ENHS$: SYSGIERM) +EXECML$/L1B+LIB$:B00TS.MLB/LIB 
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Attributes 


NOPIC 


per swe em eee ee oem mn meena $ 


! Performance indicators ! 


p-ew en emnmececocas eee ewe maa t 


Elapsed Time 


CON 
CON 
CON 
CON 


OSHR NOEXE NORD 
OSHR EXE RD 
OSHR EXE RD 
OSHR EXE RD 


9007538 tBoors. sae SYSCTERMCMAR; 1 
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NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
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